home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 October / 1993-10.d64 / menu maker (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  52 lines
  1. 0 goto601: rem copyright 1993 - compute publications intl ltd
  2. 5 f=0:dimn$(50):print"[147]":poke53281,0:poke53280,2:j=56320:k=56321
  3. 6 q=126:w=125:e=254:r=253:y=111:u=239:printchr$(142):printchr$(8)
  4. 7 x$="[159]                ":y$="[146]                [153]"
  5. 9 data,"[159]                ","[159]                "
  6. 190 readn$(f):ifn$(f)="*"thenb=f-3:n$(f)=x$:f=f+1:n$(f)=x$:goto200
  7. 195 f=f+1:goto190
  8. 200 print"             [158]auto loader":poke198,0:l=1:open15,8,15,"i":close15
  9. 210 print"[152][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  10. 215 print"[152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  11. 216 print"";"[150] use cursor keys or joystick to select"
  12. 217 print"     press 'return' or 'fire' to load."
  13. 230 print"[153]":i=l
  14. 235 print"[153]";n$(i);y$:l=i:i=i+1
  15. 240 print"";n$(i);y$:i=i+1
  16. 245 print"[158]";n$(i);y$:b$=n$(i):i=i+1
  17. 250 print"[153]";n$(i);y$:i=i+1
  18. 255 print"";n$(i);y$:i=i+1
  19. 405 ifpeek(j)=qorpeek(k)=ethenifl<>1thenl=l-1:goto230
  20. 410 ifpeek(j)=worpeek(k)=rthenifl<>bthenl=l+1:goto230
  21. 415 ifpeek(j)=yorpeek(k)=uthen500
  22. 450 geta$:ifa$=""thenifl<>bthenl=l+1:goto230
  23. 455 ifa$="[145]"ora$=""thenifl<>1thenl=l-1:goto230
  24. 460 ifa$=chr$(13)then500
  25. 470 goto405
  26. 500 l=l+2:print"[144][147]load";chr$(34);n$(l);chr$(34);",8,1":print"run"
  27. 505 print"[156]loading : [159]";n$(l);"[144]":printchr$(9)
  28. 510 poke631,19:poke632,13:poke633,13:poke198,3:end
  29. 600 poke1024,18:poke1025,1:poke1026,11:poke1027,8:poke1028,1:poke1029,14
  30. 601 l=15:c=0
  31. 602 print"[147][158] menu maker":poke53281,0:poke53280,0
  32. 603 print" by r.a.khan":ifx=1then620
  33. 604 print" press '*' to stop":print" type in filename":inputa$:l$=l$+a$+","
  34. 605 print"[144]";:c=c+1:ifa$="*"thenx=1:goto607
  35. 606 ifc<>4then602
  36. 607 g=len(l$):l$=left$(l$,g-1):print"[147]";l;"data";l$:l$=""
  37. 608 print"l="l"+1:x="x":goto602"
  38. 615 poke631,19:poke632,13:poke633,13:poke198,3:end
  39. 620 print"[147]0 poke770,131:poke771,164":print"goto 630"
  40. 622 poke631,19:poke632,13:poke633,13:poke198,3:end
  41. 630 poke198,0:c=600:q=c+10
  42. 631 print"[147]";
  43. 632 print"[158]";c:c=c+1:ifc=qthenprint"[144]c="c":q=c+10:";:goto634
  44. 633 goto632
  45. 634 print"ifc=640thenpoke198,0:run9900"
  46. 635 print"goto631":goto636
  47. 636 poke631,19:forj=632to644:pokej,13:nextj:poke198,13:end
  48. 9899 end
  49. 9900 open15,8,15,"i":close15:open15,8,15,"s0:menu":close15
  50. 9905 print"[147]booting menu...."
  51. 9910 poke770,113:poke771,168:poke43,0:poke44,3:save"menu",8:end
  52.